home *** CD-ROM | disk | FTP | other *** search
/ Fifty: Elektronik / FIFTY Elektronik (PS_Computer_Vertrieb).iso / ps8 / fty1043 / gepackt.exe / BEISPIEL / BEISPIEL.SMD next >
Encoding:
Text File  |  1992-08-01  |  3.6 KB  |  266 lines
  1. PROGRAM Beispiel
  2. ATTRIBUTE
  3. TVCENTER
  4. DOFF
  5. OBJ_OUT
  6. PREVIEW
  7. TEXTFAKTOR
  8.  3.00000000000182E-0001
  9. CHAR_FILE
  10. SANS.CHR
  11. AUSDRUCKSVERGRÖßERUNG
  12.  4.00000000000000E+0000
  13. ANPASSUNG
  14. FRAGE
  15. LINIENDICKE
  16.  1.00000000000000E+0000
  17. RAND LINKS
  18.  3.00000000000000E+0001
  19. RAND RECHTS
  20.  4.00000000000000E+0001
  21. RAND OBEN
  22.  1.50000000000000E+0001
  23. RAND UNTEN
  24.  1.00000000000000E+0001
  25. NEUE SEITE
  26. FALSE
  27. ABSTAND
  28.  5.00000000000000E+0000
  29. ATTR_END
  30. PROCEDURE       DIN-Struktogramme
  31. ATTRIBUTE
  32. TEXT
  33.  
  34.            mit G.E.S.y, dem "Graphischen Editor für Struktogramme"
  35.  
  36.    * objektorientiertes Entwerfen von Struktogrammen nach DIN 66 261
  37.    * für MS-DOS (min. 512KB) mit EGA-, VGA- oder Hercules-Karte
  38.    * arbeitet mit voller Mausunterstützung bei Bedienung und Einstellungen
  39.    * druckt in höchster Auflösung auf 9-, 24-Nadel- und Laser-Druckern
  40.    * hat 10 Vektorzeichensätze im Lieferumfang
  41.  
  42.                         Quelltext-Skelett-Ausgabe
  43.                                    in
  44.  Pascal, C, Modula-2, Cobol, Fortran, dBASE und Clipper (eigene Def. möglich)
  45.  
  46. TEXTEND
  47. GROESSE
  48.  1.20999999999913E+0000
  49. GROESSE_ROOTNAME
  50.  3.00000000000000E+0000
  51. ATTR_END
  52. BEGIN
  53. REPEAT
  54. ATTRIBUTE
  55. TEXT
  56.  Post-abweisende Schleife
  57. TEXTEND
  58. GROESSE
  59.  1.20999999999913E+0000
  60. ATTR_END
  61. IF
  62. ATTRIBUTE
  63. TEXT
  64.  
  65. einfache Alternative
  66. TEXTEND
  67. GROESSE
  68.  1.20999999999913E+0000
  69. ATTR_END
  70. XIF
  71. ATTRIBUTE
  72. TEXT
  73. + oder Ja
  74. TEXTEND
  75. GROESSE
  76.  1.20999999999913E+0000
  77. ATTR_END
  78. PROCEDURE Untermodul
  79. ATTRIBUTE
  80. TEXT
  81.  
  82.  
  83.  
  84. auch gedrehter Text
  85.     ist möglich
  86. TEXTEND
  87. ROTATE
  88. GROESSE
  89.  1.20999999999913E+0000
  90. NAME
  91. Untermodul
  92. GROESSE_NAME
  93.  1.50000000000000E+0000
  94. ATTR_END
  95. ELSE
  96. XIF
  97. ATTRIBUTE
  98. TEXT
  99. negativer Fall bzw. Nein
  100. TEXTEND
  101. GROESSE
  102.  1.20999999999913E+0000
  103. ATTR_END
  104. WHILE
  105. ATTRIBUTE
  106. TEXT
  107.  Pre-abweisende Schleife
  108. TEXTEND
  109. GROESSE
  110.  1.20999999999913E+0000
  111. ATTR_END
  112. ANWEISUNG
  113. ATTRIBUTE
  114. TEXT
  115.                        kleinerer Text
  116. TEXTEND
  117. GROESSE
  118.  1.00000000000000E+0000
  119. ATTR_END
  120. ANWEISUNG
  121. ATTRIBUTE
  122. TEXT
  123.               größerer Text
  124. TEXTEND
  125. GROESSE
  126.  1.45000000000073E+0000
  127. ATTR_END
  128. CASE
  129. ATTRIBUTE
  130. TEXT
  131.           mehrfache Alternative
  132. TEXTEND
  133. GROESSE
  134.  1.20999999999913E+0000
  135. ATTR_END
  136. BEGIN
  137. XCASE
  138. ATTRIBUTE
  139. TEXT
  140.       Fall A
  141. TEXTEND
  142. GROESSE
  143.  1.20999999999913E+0000
  144. ATTR_END
  145. EXIT  Exit   
  146. ATTRIBUTE
  147. TEXT
  148. Abbruch-
  149. Anweisung 
  150. TEXTEND
  151. GROESSE
  152.  1.20999999999913E+0000
  153. NAME
  154.  Exit   
  155. GROESSE_NAME
  156.  1.50000000000000E+0000
  157. ATTR_END
  158. END
  159. BEGIN
  160. XCASE
  161. ATTRIBUTE
  162. TEXT
  163.     Taste 'c'
  164. TEXTEND
  165. GROESSE
  166.  1.20999999999913E+0000
  167. ATTR_END
  168. FOR
  169. ATTRIBUTE
  170. TEXT
  171.  Durchlaufzahl
  172. TEXTEND
  173. GROESSE
  174.  1.20999999999913E+0000
  175. TEXT2
  176.  Schleife fester 
  177. TEXTEND
  178. GROESSE2
  179.  1.20999999999913E+0000
  180. ATTR_END
  181. ANWEISUNG
  182. ATTRIBUTE
  183. TEXT
  184.  
  185.  Anweisung
  186.  
  187. TEXTEND
  188. GROESSE
  189.  1.20999999999913E+0000
  190. ATTR_END
  191. END
  192. END
  193. BEGIN
  194. XCASE
  195. ATTRIBUTE
  196. TEXT
  197.  sonst
  198. TEXTEND
  199. GROESSE
  200.  1.20999999999913E+0000
  201. ATTR_END
  202. ANWEISUNG
  203. ATTRIBUTE
  204. TEXT
  205.   beliebig viele
  206.  weitere Spalten! 
  207. TEXTEND
  208. GROESSE
  209.  1.20999999999913E+0000
  210. ATTR_END
  211. END
  212. END
  213. END
  214. END
  215. END
  216. END
  217.  
  218. PROCEDURE Untermodul
  219. ATTRIBUTE
  220. TEXT
  221. erfüllt irgendeine Funktion
  222. TEXTEND
  223. GROESSE
  224.  1.00000000000000E+0000
  225. GROESSE_ROOTNAME
  226.  2.00000000000000E+0000
  227. ATTR_END
  228. BEGIN
  229. ANWEISUNG
  230. ATTRIBUTE
  231. TEXT
  232. Größerer Text
  233. TEXTEND
  234. GROESSE
  235.  1.98999999999978E+0000
  236. ATTR_END
  237. ANWEISUNG
  238. ATTRIBUTE
  239. TEXT
  240. Verlassen können Sie es
  241. mit einem Doppelklick der
  242. rechten(!) Maustaste
  243. TEXTEND
  244. GROESSE
  245.  1.00000000000000E+0000
  246. ATTR_END
  247. WHILE
  248. ATTRIBUTE
  249. TEXT
  250. kleinerer Text
  251. TEXTEND
  252. GROESSE
  253.  6.70000000000073E-0001
  254. ATTR_END
  255. UNDEFINED
  256. ATTRIBUTE
  257. TEXT
  258. *
  259. TEXTEND
  260. GROESSE
  261.  1.00000000000000E+0000
  262. ATTR_END
  263. END
  264. END
  265.  
  266.